#! /usr/bin/perl -w
use strict;
use warnings;


judge_hikisu( $ARGV[0] );									#@ARGVは特殊な配列。このプログラムに引数として渡した値はすべてこれに格納される。


sub judge_hikisu{
	my ( $hikisu ) = @_;

	if( !defined $hikisu ){								#引数が未定義であれば（引数がなければ）
		print "引数がありません。\n"
	}elsif( $hikisu =~ /^\d+$/ ){						#引数の値がすべて数字で構成されていれば
		judge_sosu_main( int( $hikisu ) );
	}else{												#上記2パターンに当てはまらない場合（引数はあるが、数字以外の文字が混じっている）
		print "引数には整数を与えてください。\n";
	}
}


sub judge_sosu_main{
	my ( $hikisu ) = @_;												#関数judge_sosu_mainに渡した値を受け取る。
	print '整数：' . $hikisu . ' は、素数で';
	print process_sosu( $hikisu ) ? 'はありません' : 'す';
	print "。\n";
}

sub process_sosu{
	my ( $hikisu ) = @_;
	my $flag = 0;




	return $flag;
}


1;